home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / i / imaginev3.3a.dms / imaginev3.3a.adf / Install < prev    next >
Text File  |  1995-06-29  |  3KB  |  149 lines
  1. (welcome "Welcome to the Imagine 3.3 installation.")
  2.  
  3. (set @app-name "Imagine 3.3")
  4. (set tmp @user-level)
  5. (user 2)
  6. (set inttype
  7.     (askchoice
  8.         (prompt "Please select the proper version of Imagine to install on your system.")
  9.         (help @askchoice-help)
  10.         (choices "Imagine 3.3 Floating Point Version" "Imagine 3.3 Integer Version")
  11.         (default 0)
  12.     )
  13. )
  14. (user tmp)
  15.  
  16.  
  17. (set instdir
  18.     (askdir
  19.         (prompt "Please select a destination path for Imagine 3.3.")
  20.         (help @askdir-help)
  21.         (default "Work:im33")
  22.         (newpath)
  23.         (disk)
  24.     )
  25. )
  26.  
  27.  
  28. (if ( = (exists instdir (noreq)) 1)   ;if selected path is a file...
  29.     ;then delete file and make dir
  30.     (
  31.         (set tmp @user-level)
  32.         (user 2)
  33.         (delete instdir 
  34.             (prompt ("\n\"%s\" exists as a file.\n\nDelete and continue?" instdir))
  35.             (help "\nSelecting \"Proceed\" will delete the existing file.  "
  36.                   "Selecting \"Abort Install\" will cancel operation.  "
  37.                   "Install again in either Intermediate or Expert level to change the installation path.")
  38.             (confirm) 
  39.             (optional "askuser")
  40.         )
  41.         (user tmp)
  42.         (makedir instdir
  43.             (prompt ("creating directory \"%s\"" instdir))
  44.             (help @makedir-help)
  45.             (infos)
  46.             (confirm)
  47.         )
  48.     )
  49.     ;else
  50.     (
  51.         (if ( = (exists instdir (noreq)) 0)   ;if selected path doesn't exist...
  52.             ;then create dir
  53.             (makedir instdir
  54.                 (prompt ("creating directory \"%s\"" instdir))
  55.                 (help @makedir-help)
  56.                 (infos)
  57.                 (confirm)
  58.             )
  59.             ;else directory is already there - use it.
  60.             ;()
  61.         )
  62.     )
  63. )
  64.  
  65. (set installmask
  66.     (askoptions
  67.         (prompt "Please select the items to install with \"Imagine 3.3.\"")
  68.         (help @askoptions-help)
  69.         (choices "Effects" "Textures" "Example Objects" "Example Attributes" "Documentation") 
  70.         (default 31)
  71.     )
  72. )
  73.  
  74. (if inttype
  75.     (
  76.         (askdisk sourcedrive
  77.             (prompt "\nPlease insert the disk labeled \"Imagine 3.3  Disk 2\" in any drive.")
  78.             (help @askdisk-help)
  79.             (dest "disk2")
  80.             (assigns)
  81.         )
  82.         (run ("disk2:lharc >nil: -n -m x disk2:im33_2.lzh \"%s/\"" instdir)
  83.             (prompt "\nDe-Arcing integer version program files...");
  84.         )
  85.     )
  86.     ;else
  87.     (
  88.         (askdisk sourcedrive
  89.             (prompt "\nPlease insert the disk labeled \"Imagine 3.3  Disk 1\" in any drive.")
  90.             (help @askdisk-help)
  91.             (dest "disk1")
  92.             (assigns)
  93.         )
  94.         (run ("disk1:lharc >nil: -n -m x disk1:im33_1.lzh \"%s/\"" instdir)
  95.             (prompt "\nDe-Arcing floating point version program files...");
  96.         )
  97.     )
  98. )
  99.  
  100. ;de-arc program file...
  101.  
  102. (if installmask
  103. (
  104.     (askdisk sourcedrive
  105.         (prompt "\nPlease insert the disk labeled \"Imagine 3.3  Disk 3\" in any drive.")
  106.         (help @askdisk-help)
  107.         (dest "disk3")
  108.         (assigns)
  109.     )
  110.  
  111.     (if (BITAND installmask 1)
  112.         (run ("disk3:lharc >nil: -n -m x disk3:im33_3.lzh \"%s/\" effects/#?" instdir)
  113.             (prompt "De-Arcing effects...")
  114.         )
  115.     )
  116.  
  117.     (if (AND (= inttype 0) (BITAND installmask 2))
  118.         (run ("disk3:lharc >nil: -n -m x disk3:im33_3.lzh \"%s/\" textures/#?" instdir)
  119.             (prompt "De-Arcing textures...")
  120.         )
  121.     )
  122.  
  123.     (if (BITAND installmask 4)
  124.         (run ("disk3:lharc >nil: -n -m x disk3:im33_3.lzh \"%s/\" objects/#?" instdir)
  125.             (prompt "De-Arcing objects...")
  126.         )
  127.     )
  128.  
  129.     (if (BITAND installmask 8)
  130.         (run ("disk3:lharc >nil: -n -m x disk3:im33_3.lzh \"%s/\" attribs/#?" instdir)
  131.             (prompt "De-Arcing attributes...")
  132.         )
  133.     )
  134.  
  135.     (if (BITAND installmask 16)
  136.     (
  137.         (run ("disk3:lharc >nil: -n -m x disk3:im33_3.lzh \"%s/\" docs/#?" instdir)
  138.             (prompt "De-Arcing documentation...")
  139.         )
  140.         (run ("disk3:lharc >nil: -n -m x disk3:im33_3.lzh \"%s/\" docs.info" instdir)
  141.             (prompt "De-Arcing documentation...")
  142.         )
  143.     )
  144.     )
  145. )
  146. )
  147.  
  148. (set @default-dest instdir)
  149.